home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / util / moni / xopa.lha / XOpa / XOpa-Installation < prev    next >
Text File  |  1995-09-01  |  3KB  |  96 lines
  1. ; $VER: XOpa-Installation 1.42
  2. ;
  3. ; Install script for XOpa
  4.  
  5. (set @abort-button "Installation abbrechen")
  6. (set @language     "deutsch")
  7. (set @default-dest "Work:Tools")
  8. (set @user-level   1)
  9.  
  10.  
  11. (set hello (cat  "\nWillkommen zu der Installation von XOpa 1.42!\n\n"
  12.                  "Die Installation lΣuft weitgehend automatisch ab.\n"
  13.                  "Damit XOpa funktioniert, ben÷tigen Sie mindestens\n"
  14.                  "AmigaOS 2.04. XOpa ben÷tigt keine Eintragungen\n"
  15.                  "in Ihrer User-Startup.\n"
  16.                  "Die Dokumentation ist derzeit nur im\n"
  17.                  "AmigaGuide-Format vorhanden.\n\n"
  18.                  "Eine Vollinstallation ben÷tigt ca. 280kB.")
  19. )
  20.  
  21. (procedure XOpaInstall
  22.   (set destdir (askdir
  23.                    (prompt  "In welches Verzeichnis soll XOpa installiert werden?")
  24.                    (help    @askdir-help)
  25.                    (default @default-dest)))
  26.   (set @default-dest destdir)
  27.  
  28.   (set WhichPart (askoptions
  29.                       (prompt  "Welche Teile des Programmes m÷chten Sie installieren?")
  30.                       (help    @askoptions-help)
  31.                       (choices "XOpa-Hauptprogramm"
  32.                                "Dokumentation"
  33.                                "Strukturdefinitionen"
  34.                                "Herstellerdatei")
  35.                       (default 15)))
  36.  
  37.   (if (IN WhichPart 0)
  38.     (
  39.       (copyfiles (prompt "Kopiere XOpa-Hauptprogramm...")
  40.                  (help   @copyfiles-help)
  41.                  (source "XOpa")
  42.                  (dest   destdir))
  43.       (copyfiles (nogauge)
  44.                  (help   @copyfiles-help)
  45.                  (source "XOpa.info")
  46.                  (dest   destdir))
  47.       (copyfiles (prompt "Kopiere XOpa-Registrierung...")
  48.                  (help   @copyfiles-help)
  49.                  (source "XOpa-Registrierung")
  50.                  (dest   destdir))
  51.       (copyfiles (nogauge)
  52.                  (help   @copyfiles-help)
  53.                  (source "XOpa-Registrierung.info")
  54.                  (dest   destdir))
  55.     )
  56.   )
  57.   (complete 60)
  58.  
  59.   (if (IN WhichPart 1)
  60.     (
  61.       (copyfiles (prompt "Kopiere Dokumentation...")
  62.                  (help   @copyfiles-help)
  63.                  (source "XOpa.guide")
  64.                  (dest   destdir))
  65.       (copyfiles (nogauge)
  66.                  (help   @copyfiles-help)
  67.                  (source "XOpa.guide.info")
  68.                  (dest   destdir))
  69.     )
  70.   )
  71.   (complete 80)
  72.  
  73.   (if (IN WhichPart 2)
  74.     (
  75.       (copyfiles (prompt "Kopiere Strukturdefinitionen...")
  76.                  (help   @copyfiles-help)
  77.                  (source "XOpa.structs")
  78.                  (dest   destdir))
  79.     )
  80.   )
  81.   (complete 90)
  82.  
  83.   (if (IN WhichPart 3)
  84.     (
  85.       (copyfiles (prompt "Kopiere Herstellerdatei...")
  86.                  (help   @copyfiles-help)
  87.                  (source "XOpa.boards")
  88.                  (dest   destdir))
  89.     )
  90.   )
  91.   (complete 100)
  92. )
  93.  
  94. (message hello)
  95. (XOpaInstall)
  96.